home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Complete Applications / MacYacc / Sample.y < prev   
Encoding:
Lex Description  |  1986-05-09  |  2.1 KB  |  91 lines  |  [TEXT/ttxt]
  1. %{
  2. /* this is a test file for macyacc It should be renamed as something.y.
  3.  * MacYacc expects files with the extension '.y' or '.Y'
  4.  * it then produces a compilable file with the extension '.c'.
  5.  * If requested, it produces a '.h' include file and a '.o'
  6.  * grammar file (a list of the states, shifts, etc.)
  7.  * The '.c' file should be compiled and linked in a environment
  8.  * that simulates a standard terminal (such as linking with the
  9.  * Consular stdlib).
  10.  * The parser code lives in the data fork of mac yacc. Extract it w/ FEDIT
  11.  * or whatever if you would like to look at it or modify it.
  12.  * As an additional bonus, yacc contains a resource type: cstr which others
  13.  * may find useful.
  14.  *
  15.  * for additional information see:
  16.  *    Unix Utilities Manual   (Steve Johnson)
  17.  *    The Unix Programming Environment (Kernighan & Pike) (excellent book)
  18.  *    Intro to Compiler Construction w/ Unix (Schreiner & Friedman)
  19.  *
  20.  * this program is copyrighted by no-one.  Have fun.
  21.  */
  22. #include <stdio.h>
  23. %}
  24. %start list
  25.  
  26. %token DIGIT 
  27.  
  28. %left '+' '-'
  29. %left '*' '/' '%'
  30. %left UMINUS
  31.  
  32. %%
  33.  
  34. list:    
  35.     |    list stat '\r'
  36.     |    list error '\r'
  37.             {    yyerrok;}
  38.     ;
  39.  
  40. stat    :    expr    {    printf("%d\n",$1); }
  41. ;
  42.  
  43. expr:    '(' expr ')'
  44.             {    $$ = $2; }
  45.     |    expr '+' expr
  46.             {    $$ = $1 + $3; }
  47.     |    expr '-' expr
  48.             {    $$ = $1 - $3; }
  49.     |    expr '*' expr
  50.             {    $$ = $1 * $3; }
  51.     |    expr '/' expr
  52.             {    $$ = $1 / $3; }
  53.     |    expr '%' expr
  54.             {    $$ = $1 % $3; }
  55.     |    '-' expr    %prec UMINUS
  56.             {     $$ = - $2; }
  57.     |    number
  58.     ;
  59.     
  60. number:    DIGIT
  61.     { $$ = $1;}
  62.     |    number DIGIT
  63.             {    $$ = 10 *$1 + $2; }
  64.     ;
  65.     
  66. %%
  67. yylex()
  68. {
  69.     int c;
  70.     
  71.     while((c = putchar(getchar())) == ' ');
  72.     
  73.     if( isdigit(c)) {
  74.         yylval = c - '0';
  75.         return(DIGIT);
  76.     }
  77.  else if(tolower(c) == 'q') c = 0;
  78.     return(c);
  79. }
  80. yyerror(str)
  81.   char *str;
  82. {
  83.     printf("%s\n",str);
  84.     return(0);
  85. }
  86. main()
  87. {
  88.     printf("Calculate Now(q to quit)...\n");
  89.     yyparse();
  90. }